home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTabGetItemRECT.au3 < prev    next >
Text File  |  2006-06-17  |  2KB  |  64 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiTab.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4
  7. Dim $msg, $button, $label_rect, $s_rect
  8.  
  9. GUICreate("Tab Get Item RECT", 400, 200)  ; will create a dialog box that when displayed is centered
  10.  
  11. GUISetBkColor(0x00E0FFFF)
  12. GUISetFont(9, 300)
  13.  
  14. $tab = GUICtrlCreateTab(10, 10, 200, 100, BitOR($TCS_FLATBUTTONS, $TCS_MULTILINE), $TCS_EX_FLATSEPARATORS)
  15.  
  16. $tab0 = GUICtrlCreateTabItem("tab0")
  17. GUICtrlCreateLabel("label0", 30, 80, 50, 20)
  18. $tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
  19. $tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
  20. GUICtrlCreateTabItem("") ; end tabitem definition
  21.  
  22. $tab1 = GUICtrlCreateTabItem("tab----1")
  23. GUICtrlCreateLabel("label1", 30, 80, 50, 20)
  24. $tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
  25. GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  26. $tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
  27. GUICtrlCreateTabItem("") ; end tabitem definition
  28.  
  29. $tab2 = GUICtrlCreateTabItem("tab2")
  30. GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
  31. GUICtrlCreateLabel("label2", 30, 80, 50, 20)
  32. $tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
  33. GUICtrlCreateTabItem("") ; end tabitem definition
  34.  
  35. $tab3 = GUICtrlCreateTabItem("tab3")
  36. GUICtrlCreateTabItem("") ; end tabitem definition
  37.  
  38. $tab4 = GUICtrlCreateTabItem("tab4")
  39. GUICtrlCreateTabItem("") ; end tabitem definition
  40.  
  41. GUICtrlCreateLabel("label3", 20, 130, 50, 20)
  42. $button = GUICtrlCreateButton("Get RECT", 200, 130, 90, 30)
  43.  
  44. $s_rect = "Left:" & @LF & "Top:" & @LF & "Right:" & @LF & "Bottom:"
  45. $label_rect = GUICtrlCreateLabel($s_rect, 250, 20, 100, 65, $SS_SUNKEN)
  46.  
  47. GUISetState()
  48.  
  49. ; Run the GUI until the dialog is closed
  50. While 1
  51.     $msg = GUIGetMsg()
  52.     Select
  53.         Case $msg = $GUI_EVENT_CLOSE
  54.             ExitLoop
  55.         Case $msg = $button
  56.             Local $rect_array = _GUICtrlTabGetItemRECT ($tab, 0)
  57.             If (IsArray($rect_array)) Then
  58.                 $s_rect = "Left:" & $rect_array[1] & @LF & "Top:" & $rect_array[2] & @LF & "Right:" & $rect_array[3] & @LF & "Bottom:" & $rect_array[4]
  59.                 GUICtrlSetData($label_rect, $s_rect)
  60.             EndIf
  61.     EndSelect
  62. WEnd
  63.  
  64.